Delphi 2.0 - Programmer's Utilities Power Pack/Delphi 2.0 Programmer's Utilities Power Pack.iso/m_to_r/rptworks/demo1.dfm/demo1.txt

Text File | 1996-09-15 | 5.0 KB | 217 lines

object Form1: TForm1
  Left = 196
  Top = 96
  Width = 435
  Height = 302
  Caption = 'ReportWorks Demo'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  WindowState = wsMaximized
  OnResize = FormResize
  OnShow = FormShow
  TextHeight = 16
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 0
    Width = 429
    Height = 234
    Align = alClient
    BorderStyle = bsNone
    Color = clWhite
    ParentColor = False
    TabOrder = 1
    object ReportWorks1: TReportWorks
      Left = 0
      Top = 0
      Width = 100
      Height = 100
      BottomMargin = 0.500000000000000000
      Destination = dPreview
      LeftMargin = 1.000000000000000000
      LineMeasure = lmLinesPerInch
      LinesPerInch = 5
      LineWidth = lwNormal
      Orientation = poPortrait
      PageBorder = False
      RightMargin = 1.000000000000000000
      TextStyle = tsTransparent
      Title = 'ReportWorks Demo'
      TopMargin = 0.500000000000000000
      ZoomPercent = 100
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 234
    Width = 429
    Height = 43
    Align = alBottom
    BorderStyle = bsSingle
    TabOrder = 0
    object Label1: TLabel
      Left = 128
      Top = 8
      Width = 88
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      ParentColor = False
    end
    object Bevel1: TBevel
      Left = 128
      Top = 8
      Width = 89
      Height = 17
    end
    object Button1: TButton
      Left = 16
      Top = 8
      Width = 25
      Height = 25
      Caption = ' |<'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 40
      Top = 8
      Width = 25
      Height = 25
      Caption = ' <'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 64
      Top = 8
      Width = 25
      Height = 25
      Caption = ' >'
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 88
      Top = 8
      Width = 25
      Height = 25
      Caption = ' >|'
      TabOrder = 3
      OnClick = Button4Click
    end
    object BitBtn1: TBitBtn
      Left = 248
      Top = 8
      Width = 81
      Height = 25
      Caption = '&Print'
      TabOrder = 4
      OnClick = BitBtn1Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 344
      Top = 8
      Width = 73
      Height = 25
      TabOrder = 5
      Kind = bkClose
    end
  end
  object CustSource: TDataSource
    AutoEdit = False
    DataSet = Cust
    Left = 121
    Top = 243
  end
  object Cust: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    TableName = 'CUSTOMER.DB'
    Left = 153
    Top = 243
    object CustCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object CustCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object CustAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustState: TStringField
      FieldName = 'State'
    end
    object CustZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
  end
  object OrderSource: TDataSource
    DataSet = Orders
    Left = 185
    Top = 243
  end
  object Orders: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = CustSource
    TableName = 'ORDERS.DB'
    Left = 217
    Top = 243
    object OrdersOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object OrdersCustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
    end
    object OrdersPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object OrdersItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Currency = True
    end
    object OrdersAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
      Currency = True
    end
  end
end